program pr;
var 
x: entero;

begin
while (x>0( do
x:=5;
End.